Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/PASCAL/0195.ZIP/CURSOR.LIB

Text File | 1984-12-03 | 913b | 28 lines

{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.

   In monochrome mode, the cursor has 14 scan lines, with 0 at the top
   and 13 at the bottom.  In color text mode, it has 7, from 0 to 6.

   To kill the cursor, set the topLine to 48

   Normal cursor for monochrome is 12,13.

   NOTE: programs INCLUDEing CURSOR.LIB must also include REGPACK.TYP
   }

{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
procedure Cursor_Control(topLine, bottomLine : byte);
var
  registers : regpack;
begin
  with Registers do
    begin
      ax := 1 shl 8;
      cx := topLine shl 8 + bottomLine;
      INTR($10,registers);
    end;
end;
{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}